home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earkit / mailer / voodoo / s / sendmails < prev    next >
Text File  |  1997-05-03  |  720b  |  29 lines
  1. ; Deliver all messages from a queue directory.
  2. ; Use "Copy %s to $SMTPSPOOLDIR >NIL:" as the Mailer in Voodoo
  3. ; Run this script when you want to have messages delivered
  4. ; Script by Domenig Weyerman
  5.  
  6. List to t:SMTPPostBatTempFile $SMTPSPOOLDIR/#? LFormat="SMTPPost $SMTPSPOOLDIR/%N >NIL:"
  7.  
  8. Resident AMITCP:bin/SMTPPost PURE
  9.  
  10. Echo "*N Start mailing..."
  11.  
  12. Execute t:SMTPPostBatTempFile
  13.  
  14. Echo "*N End of mailing..."              
  15.     
  16. Delete t:SMTPPostBatTempFile QUIET
  17.  
  18. Resident SMTPPost REMOVE
  19.  
  20. RequestChoice >ENV:RCNum "   Please advise me" "  Hey $USER, *N  Shall I delete all Files in SMTPSpoolDir ?" "Yes" "No"
  21. If Val $RCNum EQ 0
  22. Echo "*N*N Well, in this case keep ehm...*N"
  23.   quit
  24. Endif
  25.  
  26. Delete $SMTPSPOOLDIR/#?
  27.  
  28. ;EOF
  29.